10 POKE53280,11:POKE53281,0:POKE646,13:PRINT"[147]      FORD PREFECT'S HIGHSCOREMAKER"
20 PRINT"  WRITTEN 1993   PUBLIC DOMAIN SOFTWARE"
30 PRINT"[159] SPIEL: [156]GIANA SISTERS"
40 PRINT"              [154] HIGHSCORE:"
50 PRINT"               [183][183][183][183][183][183][183][183][183][183]"
60 PRINT"[158]#  PUNKTE NAME     LEVEL[153]"
70 :
80 :  L$="ATG,P,R" : S$="ATG,P,W"
90 :
100 : OPEN 1,8,2,L$
110 : GET #1,NO$,NO$
120 :
130 : FOR A = 0 TO 4
140 :    FOR B = 0 TO 23
150 :      GET#1, BYTE$
160 :      IF BYTE$="" THEN                        POKE 49152+A*24+B,0:GOTO180
170 :      POKE 49152+A*24+B,ASC(BYTE$)
180 :    NEXT B
190 : NEXT A
200 CLOSE 1
210 :
220 : FOR A = 0 TO 4
230 :    FOR B = 0 TO 23
240 :      S = PEEK (49152+A*24+B)
250 :      IFS=  0THEN S=32
260 :      IFS=253THEN S=46
270 :      IFS< 32THEN S=S+64
280 :      HS$(A)=HS$(A)+CHR$(S)
290 :    NEXT B
300 :    PRINT HS$(A)
310 : NEXT A
320 :
330 : PRINT"[154]   WELCHE NUMMER WILLST DU AENDERN ?"
340 : PRINT"[159]  TIPPE EIN : 1-5 ODER _ ZUM BEENDEN"
350 :
360 : GET A$: IFA$=""THEN 360
370 :  IFA$="_"THEN END
380 : A=VAL(A$)
390 :  IF A<1 OR A>5 THEN GOTO 360
400 :
410 : A=(A-1)
420 :
430 : PRINT"[158]MAX. 24 ZEICHEN !"
440 : PRINT"  #[175][175]PUNKTE[175]NAME[175][175][175][175][175]LEVEL[153]"
450 : PRINT"  ";HS$(A)
460 : INPUT"[145]";E$
470 :  IF LEN(E$) > 24 THEN GOTO 460
480 :  IF LEN(E$) < 24 THEN GOSUB 680
490 : PRINT"    AENDERUNG WIRD GESPEICHERT !"
500 :
510 : FOR L = 1 TO 24
520 :    S = ASC(MID$(E$,L,1))
530 :    IF S > 64 THEN S =  S  - 64
540 :    IF S = 46 THEN S =      253
550 :    IF S = 32 THEN S =        0
560 :    POKE 49152+A*24+L-1,S
570 : NEXTL
580 :
590 : OPEN15,8,15,"S:ATG":CLOSE15
600 : OPEN 1,8,2,S$
605 : PRINT#1,CHR$(247);CHR$(54);
610 :  FOR L = 0 TO 119
620 :      S = PEEK(49152+L)
630 :      PRINT#1,CHR$(S);
640 :  NEXTL
650 : CLOSE 1
660 :
670 :                             RUN
680 : FORW=LEN(E$)TO24:E$=E$+CHR$(32):        NEXTW:RETURN
685 :
690 : FORD PREFECT'S HIGHSCOREMAKER
700 : SPIEL : GIANA SISTERS (W) 1993 BY
710 :
720 : DANNY BUSCH
730 : BIRKENALLEE 18
740 : 65549 LIMBURG (GERMANY)
750 : TEL.: 06431/25866